	# Debugpack.pm
	package Class::Debuggable;
	use strict;
	no strict 'refs';
	
	# accessor/mutator 
	sub debug_level {
	   my ($self, $level) = @_;
	   my $class = (ref $self) || $self;
	   ${"$class\:\:debug_level"} = $level;
	}
	
	# debug method
	sub debug {
	   my ($self, $level) = (shift, shift);
	   print STDERR @_, "\n" if $level <= ${"$class\:\:debug_level"};
	}
	
	1;
